home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 47 / Amiga Format AFCD47 (Issue 131, Xmas 1999).iso / -serious- / misc / fiasco_2.22 / arexx / unlockgui.frx < prev    next >
Text File  |  1999-10-17  |  517b  |  35 lines
  1. /* UnlockGUI.frx
  2.  * Script to unlock the GUI of Fiasco, if other scripts forgot it
  3.  * Copyright © 1995-1997 Nils Bandener
  4.  * $VER: UnlockGUI.frx 6.3 (6.10.97)
  5.  */
  6.  
  7. /*
  8.  * Fiasco will complain once, if ARexx-Debug is activated.
  9.  */
  10.  
  11. /*
  12.  * Find Fiasco port
  13.  */
  14.  
  15. ports = show("Ports")
  16.  
  17. do i = 1 to words(ports)
  18.  
  19.     if abbrev(word(ports, i), "FIASCO.") then
  20.     do
  21.         Address Value word(ports, i)
  22.  
  23.         do forever
  24.  
  25.             UnlockGUI
  26.  
  27.             if rc ~= 0 then break
  28.  
  29.         end
  30.  
  31.         break
  32.     end
  33. end
  34.  
  35.